home *** CD-ROM | disk | FTP | other *** search
- object CommentForm: TCommentForm
- Left = 165
- Top = 271
- Width = 561
- Height = 334
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Comment'
- Color = clBtnFace
- ParentFont = True
- KeyPreview = True
- OldCreateOrder = True
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyDown = CommentTextKeyDown
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object ViewPanel: TPanel
- Left = 0
- Top = 0
- Width = 553
- Height = 300
- Align = alClient
- TabOrder = 0
- object CommentText: TRichEdit
- Left = 1
- Top = 1
- Width = 551
- Height = 264
- Align = alClient
- HideSelection = False
- HideScrollBars = False
- Lines.Strings = (
- 'Msg')
- MaxLength = 4096
- PlainText = True
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 1
- Top = 265
- Width = 551
- Height = 34
- Align = alBottom
- TabOrder = 1
- object CloseButt: TButton
- Left = 3
- Top = 5
- Width = 70
- Height = 24
- Caption = 'C&lose'
- TabOrder = 0
- OnClick = CloseButtClick
- end
- object ClearButt: TButton
- Left = 76
- Top = 5
- Width = 70
- Height = 24
- Caption = '&Clear'
- TabOrder = 1
- OnClick = ClearButtClick
- end
- object CorelButton2: TButton
- Left = 149
- Top = 5
- Width = 92
- Height = 24
- Caption = '&Insert From File'
- TabOrder = 2
- OnClick = CorelButton2Click
- end
- object FontButt: TButton
- Left = 244
- Top = 5
- Width = 75
- Height = 24
- Caption = '&Font'
- TabOrder = 3
- OnClick = FontButtClick
- end
- object checkbox1: TCheckBox
- Left = 322
- Top = 8
- Width = 223
- Height = 17
- Caption = 'Fl&oat comments when opening Zip files'
- TabOrder = 4
- end
- end
- end
- object FontDialog: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [fdNoStyleSel]
- Left = 8
- Top = 5
- end
- object OpenDialog1: TOpenDialog
- Filter = 'Text files (*.txt; *.diz)|*.txt;*.diz'
- Title = 'Select text file for insertion...'
- Left = 248
- Top = 105
- end
- end
-